home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Celestin Apprentice 7
/
Apprentice-Release7.iso
/
Environments
/
MacMETH 3.2.4
/
Examples
/
XYplane.DEF
< prev
next >
Wrap
Text File
|
1996-06-20
|
278b
|
20 lines
DEFINITION MODULE XYplane;
CONST
draw = 1;
erase = 0;
VAR
H: INTEGER;
W: INTEGER;
X: INTEGER;
Y: INTEGER;
PROCEDURE Clear;
PROCEDURE Dot (x, y, mode: INTEGER);
PROCEDURE IsDot (x, y: INTEGER): BOOLEAN;
PROCEDURE Key (): CHAR;
PROCEDURE Open;
END XYplane.